home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 January / 1988-01.d64 / ss justify (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  46 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 print"[147]   copyright 1988 compute! pub., inc."
  3. 30 printtab(10)"all rights reserved"
  4. 40 gosub120: rem load ml program
  5. 50 poke49242,16: rem max insertions
  6. 60 input"filename";n$:input"lm, rm";lm,rm
  7. 70 open15,8,15:open2,8,2,n$+",s,r":input#15,e1$,e2$,e3$,e4$
  8. 80 ife1$="00"then100
  9. 90 print:printe1$;e2$;e3$;e4$:close15:end
  10. 100 open3,4,7:poke781,lm:poke782,rm-1:sys49152:print#3:close2:close3
  11. 110 close15:end
  12. 120 forj=49152to49570:reada:x=x+a:pokej,a:next
  13. 130 ifx<>61941thenprint"error in data statements.":stop
  14. 140 return
  15. 150 data 142,163,193,140,164,193,169,0,141,165,193,32,19,193
  16. 160 data 32,225,255,208,6,32,225,255,240,251,96,173,168,193
  17. 170 data 205,163,193,176,6,32,56,192,76,11,192,173,165,193
  18. 180 data 208,6,32,56,192,76,11,192,32,79,192,76,11,192,32
  19. 190 data 204,255,162,3,32,201,255,162,0,189,176,193,32,210
  20. 200 data 255,232,236,168,193,144,244,96,56,173,164,193,237
  21. 210 data 167,193,141,169,193,201,16,144,4,32,56,192,96,201
  22. 220 data 0,208,4,32,56,192,96,169,0,141,170,193,174,163,193
  23. 230 data 189,176,193,201,32,208,4,232,76,113,192,189,176,193
  24. 240 data 201,32,208,15,172,170,193,138,153,176,194,169,1,153
  25. 250 data 0,195,238,170,193,232,236,168,193,144,228,172,169
  26. 260 data 193,174,171,193,236,170,193,144,2,162,0,254,0,195
  27. 270 data 232,236,170,193,144,2,162,0,136,208,242,142,171,193
  28. 280 data 169,255,172,170,193,153,176,194,32,204,255,162,3
  29. 290 data 32,201,255,162,0,160,0,152,221,176,194,208,54,169
  30. 300 data 0,141,166,193,200,185,176,193,136,201,8,208,3,238
  31. 310 data 166,193,142,162,193,189,0,195,170,169,32,32,210,255
  32. 320 data 173,166,193,240,10,169,8,32,210,255,169,95,32,210
  33. 330 data 255,202,208,233,174,162,193,232,76,12,193,185,176
  34. 340 data 193,32,210,255,200,204,168,193,144,184,96,32,204
  35. 350 data 255,162,2,32,198,255,169,0,141,167,193,141,168,193
  36. 360 data 169,32,141,176,193,32,207,255,170,32,183,255,41,64
  37. 370 data 240,3,104,104,96,138,201,1,208,6,141,165,193,76,40
  38. 380 data 193,201,2,208,8,169,0,141,165,193,76,40,193,201,13
  39. 390 data 208,62,238,167,193,172,167,193,140,168,193,153,176
  40. 400 data 193,238,168,193,174,163,193,189,176,193,201,32,176
  41. 410 data 23,201,27,208,6,206,167,193,76,123,193,201,8,208
  42. 420 data 3,206,167,193,206,167,193,76,136,193,201,146,208
  43. 430 data 3,206,167,193,232,236,168,193,144,213,96,172,168
  44. 440 data 193,153,176,193,238,168,193,201,32,240,140,140,167
  45. 450 data 193,76,40,193,7
  46.